
3 


DEC 1979 





SUBSCRIPTIONS, ADVERTISING RATES, AND OTHER SUCH INFORMATION 


The SOURCE is an international 
User Group Newsletter dedicated 
exclusively to owners of the 
Exidy Sorcerer personal Computer. 
The Source will "be published at 
irregular intervals, depending 
on the material sent in "by sub¬ 
scribers for publication. 

The SOURCE is published by 
ARESCO, Inc., 9143G Red Branch 
Road, Columbia MD 21045* All 
inquiries and correspondence 
should be sent to the postoffice 
box address rather than to the 
street address: ARESCO SOURCE, 
Box 1142, Columbia MD 21044. 

POSTMASTER: Please send all 

address changes to the SOURCE 
at the above post office box. 


Subscriptions do not overlap 
from one volume to another. 

USA residents who wish to have 
their copies sent via first 
class mail may include $5/vol. 
for postage. Non-USA residents 
should include $10/yr for first 
class postage, $12.00/year for 
air-mail postage if desired. 

Payment for subscriptions may 
be made in the form of cash, 
check, money order (all in US 
funds and drawn on a US bank), 
Master Charge, and VISA credit 
cards. No billing or COD is 
available, and purchase orders 
are not accepted unless accom¬ 
panied by payment. 


Editor: Terry Laudereau 

Co-Editor: Don Despres 

Readers are encouraged to sub¬ 
mit articles of general inter¬ 
est to other Sorcerer owners. 
Material submitted will be con¬ 
sidered free of copyright, and 
all material in the publication 
is copyrighted by ARESCO. User 
Groups may circulate a copy, but 
may not make copies for other 
members of the group. 

Material submitted for publica¬ 
tion should be typewritten.and 
single spaced, using new ribbon. 
If no typewriter is available, 
we can re-type your handwritten 
material, but we cannot be re¬ 
sponsible, for typographical 
errors which will, in spite of 
our best efforts, occasionally 
creep in. 


ADVERTISING RATES 

Classified ads: $10/3 lines 

Full page display: 885* 

Half page display: 845* 

Quarter page disp: $25 

Payment must accompany camera- 
ready copy unless other arrange¬ 
ments have been made in advance. 

DEALER RATES 

Dealers may obtain copies of 
the ARESCO SOURCE at our cost 
of $1.20/copy plus shipping. 
Minimum order is 5 copies per 
order. All orders will be 
shipped either pre-paid or 
COD unless other arrangements 
have been made in advance. 

INFORMATION REQUESTS 


SUBSCRIPTION RATES ARESCO will provide a free intro- 

. _ , „ , . ductory copy of the SOURCE for 

The SOURCE is mailed 3rd class, interested readers, provided a 
and no. charge is made for postage^^g^^^ se if addressed, 6x9 
Subscription rate is.$15/1° envelope is provided (with 28/ 

issues, and all ten issues will postage attached is included with 
be part of the same volume. the request. 
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USING THE MONITOR COMMANDS FROM A BASIC PROGRAM 

by Ian MacMillan 

(Courtesy of the Australian Sorcerer Users Group - Thanks!) 

Although the Exidy Monitor is quite a large program; of the 
order of 4K Bytes; it does not fully qualify as a "Monitor", 
having no provisions for examining the contents of the CPU 
registers, for example. However it is an extremely useful 
collection of Z80 routines, including, of course, the operating 
system. Actually, the whole thing is almost a kind of high 
level language interpreter, and it is in fact possible to run 
"monitor" programs consisting of sequences of "batched" 

Monitor Commands which have been recorded on tape. 

Several of the facilities provided by the Monitor are of great 
value in normal programs, and if the program is written in 
Z80 language can be directly accessed by simply calling the 
routines. 

Most users dabble inZ80 code only in a very small way, as 
the difficulties are considerable, especially in the absence 
of an editor/assembler (Yes,I know...).however,it is possible 
to use the routines from BASIC using the following technique. 

The monitor command with it's associated addresses is directly 
POKEd into the Monitor Buffer. This is located from 8082 
up in an 8K machine (1627^ and 32658 in l6K and 32K). The 
address of the particular routine is entered into addresses 
260 and 26l, and the thing is set off by entering X=USR(0). 

The program listing shows a MOve function implemented in BASIC 
but although it describes how to write the Data line using the 
character/ASCII table on page G1 in the "Short Tour of Basid", 
it fails to point out that the addresses POKEd in line 30 are 
specific to the MOve command, and have to be different for a 
different command. 

The most useful "goto" addresses are listed below: 


COMMAND 

HEX ADDR 

260 

261 

MOve 

E562 

98 

229 

DUmp 

E4D3 

211 

228 

SAve 

E638 

56 

230 

LOad 

E7BA 

186 

231 


The Monitor SET commands can be implenented more simply, with 
a simple POKE instruction. The use of these in a BASIC program 
can enable variable printing speeds, changes in current input 
and/or output ports,and I/O Baud rate, as the program runs, and 
a listing of the POKE addresses involved will be published in a 
separate article. 



1 REM ******Program by IAN MACMILLAN****** 

2 s 

3 REM Demonstration of Monitor use from BASIC 

4 ! 

5 REM This shifts the top half of the screen to the bottom 

6 REM half by using the MOve routine in the Monitor, this 

7 REM is done by poking MO F440 F443 into the monitor 

8 REM buffer (Decimal coded in line 15)> then poking the low 

9 REM and high bytes of the MOve routine address into 260,261 

10 REM which is where the jump address for USR(O) is located. 

11 REM The monitor routines all end with C9» so the stack 

12 REM ensures a return to BASIC without special provision. 

13 : 

14 : 

15 DATA. 77 , 79 , 32 , 70 , 48 , 56 , 51 , 32 , 70 , 52 , 51 , 70 , 32 , 70 , 52 , 52 , 51,13 
18 Z=32657: REM for 8K Z=808l, for l6K Z=l6273 

20 FOR X=1 TO 18 : READ Y: P0KE(Z+X),Y:NEXT X 
25 INPUT "Are you ready to movd'; A.$ 

30 POKE 260,98: POKE 261,229: V=USR(0) 

40 : 

60 REM Any monitor command can be entered this way - just look 
70 REM up the Decimal Code for each character on page G1 of 
80 REM your"Short Tour of Basic" and make up line 15 accordingly 


DO YOU SUFFER FROM UNWANTED SCROLLING? 

by IM 

(Courtesy of Australian Sorcerer Users Group - Thanks!) 

Have you ever written a program using graphics with lots of 
INPUT statements? If you did you doubtless found that when 
the INPUT statements reached the bottom of the screen, the 
display scrolls, and woops! There go the graphics! 

The answer is to keep the input prompts and responses on the 
top line of the video display by putting in a line: 

PRINT CHR$(17) 

after each input. This "homes" the cursor without clearing 
anything,and allows you to POKE into the display indefinitely 
without fear of losing your precious picture. 
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♦ PRELIMINARY ANNOUNCEMENT * 


* 


The Midwest Affilirtidn df Computer Clubs (MACC) 

IS PROUD TO ANNOUNCE THAT OUR 

Fifth annual Computerfest (R) will be JUNE 20 -22? 1980 


rt FRANKLIN University? urrnt & Rich? in downtown Columbus Ohio. 
Plerse mrke r note of thrt drte ! 


175 ROOMS HRVE BEEN RESERVED FOR COMPUTERFEST V RT HOLIDRY INN 
NEAR 1-70 & 1-71 IN DOWNTOWN C'DLUMBUS NERR FRRNKLIN UNIVERSITY. 

For more information? contact - 

Jrmes Crowley 4008 Rickenbrcker Ave Columbus OH 43213 
CONVCHAIR (vir INFOPLEX) 

614-239—9931 (phone rings rt business AND none) 

■>■. A A. A- A. A. A. A..A, A 

V w w W W f P W W V W W W W W W W W W W W W V W ' 

♦ CALL FDR PARTICIPATION ♦ 


♦ in the 5th annual COMPUTERFEST June 20-22? 1980 ♦ 

♦ ISSUED BY THE 1980 STEERING COMMITTEE ♦ 



Everyone interested in the Personal Computing Hobby or 
INVOLVED IN THE SMRLL BUSINESS COMPUTER FIELD? IS INVITED TO I 

List events you expect us to include? or volunteer rs r panelist. 

PROVIDE THE NRMES & RDDRESSES OF CONTRCTS FOR EACH PERSONAL 

COMPUTER CLUB WHO WILL GET COMPUTERFEST INFORMRTION TO THE MEMBERSHIP 

RS SOON RS IT IS RELERSED? & RCT RS R LIRSON FOR TWO-WAY INFO FLOW. 


More prrticiprnts rre needed for the steering committee. 

Ideally you should have rccess to r persdnrl computer with r modem? 

RND YOUR CLUB OUGHT TO JOIN MACC SO WE CRN GIVE YOU THE RCCESS CODES FOR 
THE FREE INFOPLEX ELECTRONIC MRIL? DONRTED BY COMPUSERVE TO MACC. 

If your club is interested in joining MACC? or seeks more info on MACC? 
contact Doug Troughton 503 Colony Dr Wheelersburs DH 45694 614-574-3152 
PRESMACC (Via INFOPLEX) 


More prrticiprnts rre desired for the frcilities management 

2 , HOST COMMITTEE? ORGANIZED BY THE AmRTEUR COMPUTER SOCIETY 

of Columbus Dhio (ACSCO) c/o Russ Ranshaw 3586 Smiley Rd 

Hillirrd Oh 43026 614-876-9192 TRUSACSCD (via INFOPLEX) 70010?100 <MICR0NET> 


Volunteers rre needed to organize publicity & promotion for 
Computerfest 30. Until r pending conversion rt work takes away 

MY TIME? I y M RCTING RS TEMPORRRY PUBLICITY CHRIRMRN. 

We EXPECT TO HRVE MORE VOLUNTEERS INVOLVED BEFORE I MUST DROP-OUT. 

Al Macintyre 6750 Shendrnddrh Apt 5 Florence KY 41042 606-525—6442 
Editor for Cincinnrti Computer Club (CCC) * 

EDCCC <vir INFOPLEX) 70020?100 (MICRONET> 






Volunteers are invited to sent short entertaining articles to 

THE MBCC CdMPUTERFEST PRDMOTIQNftL NEWSPAPER WHICH WILL BE EDITED* 
PRINTED* BND DISTRIBUTED BY THE SOUTHEASTERN MICHIGAN 

Computer Organization (SEMCD) c-'a Terry Williams 313-852-6546 
1350 Brookview Circle* Bloomfield Hills MI 48013 
SEMCD HAS NUMEROUS ELECTRONIC BULLETIN BOBRDS <CBBS> 

WHICH BRE LISTED IN THE SEPT 79 ISSUE OF THEIR NEWSLETTER <DbTB Bus)* 
OR SEMCD CBN BLSO BE CONTBCTED BY TRUSSEMCD (l/IB IMF0PLEX> 


Volunteers bre blso needed to get the following committees going : 

<.1> Solicit speakers 8. workshops* bnd schedule the program 

<2> Solicit exhibitors 8c advertising for MBCC's promotional newspaper* 

8c THE CDMPUTERFEST PROGRAM. 

C3) Budgeting committee to oversee financial accounting 

Co-ordinate pre-registration 8c hotel reservbtions 8c print tickets. 


♦ MDRE IMFORMBTION BBOUT CDMPUTERFEST 30 


► 


COMPUTERFEST IS MORE THBN COMPUTERS BND COMPONENTS * SOFTWARE BND HBRDWBRI 
IT IS B GATHERING AND DISSEMINATION OF IDEAS* WITH WORKSHOPS Sc PANEL 
DISCUSSIONS ON A WIDE VARIETY OF HARDWARE INTERESTS* COMPUTER LANGUAGES* 
AND COMPUTER APPLICATIONS* WHERE HOBBY SHOPS* HOBBYISTS* AND 
SMALL BUSINESSPEOPLE WHO HAVE MUCH IN COMMON* CAN SHARE INFORMATION. 

Louisville's Computerfest 79 had over 40 workshops* seminars* and 

PANEL DISCUSSIONS* SUCH AS 5 

Computer Bided Instruction » Computer aids for the Handicapped : 
Computer driven Museum displays * Electronic Newspapers * Ethics * 

Ham Radio interfaces * Inventory control * Robotics * 

Simulation Design techniques * Word Processing. 

Our in-depth coverage of all topics is more critical than 

A LARGE NUMBER OF SPECIALIZED MEETINGS AND LOTS OF EXHIBITORS. 

Dne purpose of Computerfest is to trade information about the 

CAPABILITIES AND USES OF THE PERSONAL COMPUTER. 

Numerous small businessmen know computers are powerful tools* 

BUT ARE UNFAMILIAR WITH THE UNIVERSE OF ALTERNATIVES WHICH EXIST 

between Radio Shack and IBM* and seek guidance before investing. 
Likewise* numerous personal computer professionals have a dream of 

MAKING A LITTLE MONEY FROM OUR HOBBY BY SOFTWARE DEVELOPMENT* 

DR CONSULTATION WITH PEOPLE JUST GETTING STARTED. 

Computerfest brings both interests together for mutual satisfaction. 
y . End of text 
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SETTING MONITOR PARAMETERS FROM "BASIC" 
by Ian MacMillan & Devin Trussell 
(Courtesy of Australian Sorcerer Users Group - Thanks!) 

The monitor parameters set the display speed, Baud rate, tape 
header information, and select the input and output ports 
that are to be used by the programs running on the machine. 

The "selection of Input or Output port" is somewhat misleading 
because what actually happens is that the routine in monitor 
that accesses the port in question is called. When 0 or I are 
set to an address (XXxx) it means that you have to provide, at 
that address, a machine routine that will look after whatever 
device you have in mind. 

In order to set the parameters from BASIC, one or two bytes 
have to be POKEd into the appropriate locations in monitor 
RAM, which is located at the top of memory. The actual add¬ 
resses depend on the amount of memory in the system, so that 
the following tabulates in term of 8,l6 and 32 Kilobytes. 

1. SEt S=XX...to set video display rate 

8K 16K 

POKE 0 to 255 into . .... 8143 16335 

NOTE: 0 is fast; 255 is slow. 

2. SEt T=X...set Baud rate 

POKE 64 for 1200 Baud; 0 for 300 .... 8142 16334 

3. SEt FF=XX...to set file type (in tape header) to XX 

POKE 0 to 255 into . 8158 16350 

NOTE: BASIC will only load file types BO to BF. 

File type D8 will not auto execute. 

4. SEt X=YYyy...set auto-execute address in tape header 

POKE decimal equivalent of desired 
program starting address bytes , 

YY in H; yy in L ... 8163/4 16355/6 32739/40 

NOTE: Some uncertainty with this one. L/H L/H L/H 

5 • Selecting Output Port 

Pairs of bytes are POKEd into two addresses: 

8K ... 8144,8145 

16K ... 16336,16337 

32K ... 32720,32721 


32K 

32719 

32718 

32734 





The bytes to be poked, in the same order as the addresses above, 
are as follows : 

(video) 27 and 224 

(parlot) 33 and 224 (parallel output) 

(ce.dvr)l47 and 233 (Centronics Printer) 

(outape) 18 and 224 (tape output) 

xx and XX 


SET 0=V 
0=P 
0=L 
0=S 

0=XXxx 


(addr of special ouput routine) 


NOTE: XX is the decimal equivalent of the most significant 

byte, and xx is that of the least significant byte. 

6. Selecting Input Port 

Pairs of bytes are POKEd into two addresses: 

8K ... 8146,8147 l6K ... 16338,16339 32K ...32722,32723 

The bytes to be poked, in the same order as the addresses,are: 

SET I=K (keybrd) 28 and 235 

I=P (parlin) 118 and 231 

I=S (intape) 218 and 226 

I=XXxx xx and XX 


NOTE: We repeat the point that these are the addresses of 

routines, not ports. 

We hope that this information will be useful, but must point 
out that much of it is untried, and has been derived from 
study of monitor dis-assemblies, and may contain errors of 
detail, or calculation. We would be greatly obliged if any 
such errors were brought to our attention. 

Example of usage 

20 POKE 32719,100 

30 REM SLOWS PRINTING SPEED ON SCREEN 

40 POKE 16336,147: POKE 16337,233 

50 REM MAKES THE CURRENT OUTPUT PORT CENTRONICS 


HOW TO READ OUT THE CHARACTER MEMORY STORAGE FOR ANY CHARACTER 

by IM 

(Courtesy of the Australian Sorcerer Users Group - Thanks!) 

This is good stuff if you want to reproduce characters in 
large sizes, because it gives you the character formation 
patterns without having to re-generate them. 

Every character is stored as a pattern of eight consecutive 
bytes in ROM or in the special user definable character RAM. 
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The expression for Y finds the address of the top line of the 
character(actually the address is -Y). The routine then looks 
at that, and the next seven bytes in memory, and prints them 
out. The bit pattern of these bytes form the shape of the 
character displayed. 

10 INPUT "ENTER CHARACTER"; A$ 

20 Y=2048-8*ASC(A$) 

30 PRINT "THE TOP LINE ADDRESS IS ";-Y 
40 FOR X=Y TO (Y-7) STEP -1 
50 PRINT PEEK(-X) 

60 NEXT 
70 GOTO 10 

To user-define characters from BASIC, select your keytop, 
use the above routine to find the addresses of the eight 
bytes of the GRAPHIC/SHIFT character you are going to define. 
Then POKE the decimal values of the bytes required to make 
your bit pattern, into each location in turn. In a program, 
a DATA line and a READ in a loop very like the one in the 
program above will do the trick. 

The "chunky graphics" routine in this issue can be used to 
create large characters using whole character blocks instead 
of little dots. 


CHUNKY GRAPHICS 
by IM 

(Courtesy of the Australian Sorcerer Users Group - Thanks!) 

The following subroutine(s) allow the equivalent of the 
TRS80 SET and RESET commands. 

The horizontal axis allows X values from 1 to 64. 

The vertical axis allows values from Y=1 to Y=30. 

To SET _GOSUB 99° 

To RESET ... GOSUB 1000 

990 Z=177s GOTO 1010 
1000 Z=32 

1010 P=3969-X-((Y-1)*64) 

1020 POKE -P,Z 
1030 RETURN 

In your program, establish the values of X and Y and call 
the subroutine, which can be renumbered to suit yourself. 
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Terry- A couple of addendums to your software vendor list 
in Volume 1, Issue 1 of the Sorcerer. 

I recently came across a fine hook hy Vic Tolomei on machine 
language for the Sorcerer. It is distributed by Quality 
Software, 6660 Reseda Boulevard, Suite 103, Reseda, CA, 
91335* It has become an invaluable reference manual. 

In addition, Quality Software distributes a good, high res¬ 
olution program for plotting curves. It is available on 
cassette and runs without any difficulties. I only wish it 
were available on disk so that programs could be mersed. 

On the negative side, Compumax Associates "General Ledser" 
program needs debugging and better video display. The 
instruction manual leaves much to be desired. 

We too had trouble with our first Sorcerer operating with 
a cassette. However, the problem was in the connection to 
the "2nd layer" board within the Sorcerer. 

We have placed five systems using the Sorcerer/Micropolis in 
local businesses. All are running reliably and with great 
praise from the users. -Barry Goldstein 


NEW PRODUCT ANNOUNCEMENT 

A new catalogue devoted exclusively to Educational Software 
for personal computers is being published by Queue, 5 Chapel 
Hill Drive, Fairfield, CT, and will contain educational doft- 
ware listings from numerous publishers. 

Software listings will be separated by educational level 
and field, and by computer, and listings for all popular 
personal computers will be included. 

All software can be ordered directly from Queue. For further 
information, contact Monica Kantrowitz, president, Queue, 

5 Chapel Hill Drive, Fairfield, CT, 064-32, or call ( 203 ) 
372-6761. 


Terry- I own a 16 k Sorcerer and am presently having many 
problems in connecting a Heathkit WH14 serial printer to it. 
It seems that Exidy's serial port (RS-232) is not standard. 
When the driver program is run, the output is not being 
switched to the printer by the "SET" command. I would con¬ 
sider an interface from the parallel port, but I don't know 
how. I am looking towards newsletters and Sorcerer User 
Groups to see if anyone ha.s ever had this problem and how 
to solve it. If you have any suggestions in resolving this 
problem, they would be more than welcome. -Dennis lipovsky 




























































































































































NEW PRODUCT ANNOUNCEMENT 

Textwriter Organic Software 

$125 (complete) or 1492 Windsor Way 

$15 (bound 50 -page user's manual) Livermore, CA 94550 

(415) 455-4034 

Textwriter is a text formatting program that is perfectly 
suited to the printing of personalized form letters, re¬ 
ports and manuals, contracts and specifications, or hooks 
and articles. It personalizes form letters by replacing 
name and address symbols with values read from either a 
separate mail list file or from the keyboard. It makes the 
production of reports and manuals very easy by automatically 
generating a table of contents and alphabetized index, there¬ 
by eliminating the tedious task of manually changing the con¬ 
tents and specifications because it allows the user to 
reference frequently used paragraphs or sections by name 
for automatic insertion when the document is printed. It 
speeds the generation of books and articles because it allows 
chapters or sections to be segmented into separate files 
and then linked together at the time they are printed per¬ 
mitting editing without the overhead of reading the entire 
document. It also accumulates and properly pieces foot¬ 
notes at the bottom of a page when required. 

With all its features, Textwriter is useful for businessmen 
who generate personalized form letters from mailing lists; 
any one who writes manuals or reports requiring a table of 
contents and index; professionals who write contracts or 
specifications that share common sections; authors who write 
books or long articles; and hobbyists who need word processing 
but have a limited budget. 

Textwriter is available on all commonly used floppy disk 
media in versions for use with CP/M and other similar sys¬ 
tems such as IMDOS and CDOS; CP/M on TRS -80 or any other 
CP/M system based at 4200H; North Star DOS and Mlcropolis 
MDOS. It works with any terminal and printer; a special 
video output device is not needed as with other word pro¬ 
cessors 0 


DEFINING GRAPHICS KEYS 
by Lee Meador 

This is a program to define shapes of the graphic keys. When 

you see the prompt "THE KEY IS._", enter a graphics key. Any 

key will do, but there are problems with the alphabetic keys. 

(I would appreciate any advice here.) Use these codes to pro¬ 
duce the graphics you want: 

" 1 " - make a white dot " A " - copy row above 

“ make a dark dot - don't change rest of 

- don't change row the character 

Then SAVE name FC00 FFFF to save your characters, and LOAD name 
to retrieve them later! 
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10 

20 

30 

100 


110 

120 

130 

132 

134 

136 

138 

140 

145 

146 

147 

148 
150 
155 
l6o 
170 
180 
190 
200 


210 

220 

250 

260 

270 

280 


290 

300 

320 

330 

332 

334 

336 

338 

340 

345 

346 

347 

348 

349 

350 
355 
360 


370 

380 

390 

4oo 

4l0 

415 

420 


REM *«********FIND PLACE FOR PARTICULAR KEY********** 
AL$= "12 3456 7 89 0 s =/v qwer t yui op if asdfgh j kl 5 \*-zxcv'bnm <?>? " 
GOTO 500 

INPUT "THE KEY IS ";K$ 

IF LEN(K$)< 3 THEN GOSUB 150 : GOTO 300 
KC$=MID$ (K$, 1) s K$= LEFT$ (KSfe f 1) 

IF LEFT$(KC$,1)=" " THEN KC$=MID$(KC$,2): GOTO 130 
C0PY=VAL(KC$) 

GOSUB 150 
FOR 1=0 TO 7 

POKE -1024+CHAR*8+I, PEEK(-2018+C0PY*8+I) 

NEXT I 
GOTO 700 


REM************************************************** 

IF ASC (K$ ) >127 THEN CHA.R= A.SC (K$)-128 : GOTO 250 
FOR 1=1 TO LEN(AL$) 

TK$=MID$(AL$,I,1) 

TC=A.SC (TK$) - 32 

IF TC< 32 THEN TC=TC+l 6 : GOTO 180 
TC$=CHR$(TC) 

IF TK$=K$ THEN CHAR=I-1 ! GOTO 250 
IF TC$=K$ THEN CHA.R=I-l+64 : GOTO 250 
NEXT I 
PRINT CHAR 

RETURN 

• 

REM**********FORM CHARACTER FROM INPUT*************** 

PRINT CHR$(128+CHAR);" 76543210 76543210" 

FOR 1=0 TO 7 
A$= " " 

BYTE= PEEK ( -1024+CHA.R*8+I) 

FOR J=0 TO 7 

IF INT(BYTE/2f J)-INT(BYTE/2fJ+l))*2 THEN A.$="l"+A# : GOTO 340 
A$="."+A$ 

NEXT J 

PRINT I;" " ;A.$ 

NEXT I 

FOR 1=0 TO 7 :PRINT CHR$(23)5 s NEXT I 
FOR 1=0 TO 7 
A$= M ” 

FOR J=1 TO 15 s PRINT CHR$(19)« : NEXT J : PRINT I;" "; 

INPUT A$ 

A.$=A.$+" 

BYTE= 0 

• 


FOR J=0 TO 7 
TK$=MID$(A.$, J+l, 1) 

IF TK$="1" THEN BYTE= BYTE+ 21(7-J) 
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422 IF TK$="O" THEN BYTE=BYTE+2f(?-J)sREM * GRAPHICS +1 
425 IF TK$="*" THEN 470 

42? IF TK$= , ’ p,,, THEN 470 : REM * GRAPHICS + * 

430 IF TK»="#" THEN 480 

432 IF TK$=" *3' THEN 480 : REM * GRAPHICS + # 

435 IF TK$="/*" THEN BYTE=0BYTE : GOTO 460 

437 IF TK$="f" THEN BYTE=OBYTE : GOTO 460 s REM GRAPHICS + /v 


450 NEXT J 

451 REM**************************************************** 


460 POKE -1024+CHAR*8+I,BYTE 


465 OBYTE=BYTE 
47 O NEXT I 
480 GOTO 700 


490 : 

495 REM**********SHOW ALL THE CHARACTERS******************* 

499 * 

500 PRINT CHR$(17)5 

501 FOR M=1 TO 30 : PRINT SPC(63) : NEXT M 

502 PRINT CHR$(17)5 


503 PRINT 

510 FOR 1=32 TO 255 STEP 32 


520 FOR J=1 TO 1+31 
530 PRINT CHR$(J);" "; 

540 NEXT J : PRINT s PRINT : NEXT I 
700 PRINT CHR$(17) 

710 FOR 1=1 TO 16 : PRINT : NEXT I 

720 FOR 1=1 TO 12 : PRINT SPC(39) 1 PRINT : NEXT I 

730 PRINT CHR$(17) 

740 FOR 1=1 TO l6 s PRINT : NEXT I 
750 GOTO 100 


We asked Don Despres to enter, run, and comment on this program. 
Unfortunately, our printer isn't hooked up at the moment, so we 
couldn't give you a real printout, "but we've proofed this several 
times’- we think it's correct. Here are Don's comments: 


I'd like to see Lee add a few more command codes to his 
excellent program. For instance, I believe Lee's program 
intends you to look at and modify only the graphic characters. 

I'd like to look at how Exidy puts all those dots together to 
to form the regular ASCII characters. Why? Well, if I don't 
like the shape of an Exidy letter, it would help to have the 
actual bit by bit dot pattern in ROM known to me before I 
try to design my own character. I know that 128 of the characters 
can't be changed, but if I could see the way they're put 
together, I'd know what to avoid instead of having to do it 
by trial and .error. 

I wonder if you can design your own letters what would be 
enough different from the standard patterns in ROM so you'd 
be able to have variable pitch or letter styles on the screen, 
just like the different IBM typewriter element balls.? 
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I had a few problems with the program. For example, I could 
not generate a graphic character on key (2/") using the SHIFT 
key. It generates a "?FC ERROR IN LINE 150". The Graphics 
key and the (2/") key worked okay. 


I defined the (l/!) key as a box: 
Lee's program labels it as key #64. 
When I did an immediate command 
PRINT ASC("0"), I got a response 


GRAPHIC + SHIFT + (l/l) key 


11111111 

1.1 

1.1 

l.OOQ. .1 

1.1 

l.a.oo.l 
1 .. 0 . 0.1 
11111111 


I got a response that said it was ASCII(192). This is con¬ 
fusing. Lee numbers the graphic keys from 0 - 127> and Exidy 
numbers them from 128 - 255* Of course, you might not care 
about comparing Exidy's # to Lee's 

Likewise, I defined a funny looking large A and assigned it to 
the (A) key. Lee calls it key 90, but Exidy calls it 128 
(via PRINT ASC("/^ "), using GRAPHIC + SHIFT + (A) key). 

I tried to get fancy and modify the program to use Q and £ 
instead of "1" and but it didn't work. I was able to 

keep the box and the large R , but I couldn't keep the solid 
box. 

Lee sent his program listing in on printer output. The printer 
uses only upper case letters, and Lee added a handwritten note 
that AL$ (line 20) was to have been entirely in lower case letters. 
This is fine, except that the Sorcerer considers the a signal 
to ignore the line. So I entered all the characters in lower 
case except the "@". It didn't seem to hurt anything. 

Lee's documentation tells me everything I need to know, but not 
everything I want to know about his program. For example, he 
says that the program works with the graphic key, but I find 
that: 


1 Lower case letter key input reveals standard graphics 

2 SHIFT + letter key input reveals user defined graphics 

3 GRAPHIC + letter key input sometimes reveals user defined 
graphics„ 

I found that sometimes the characters wouldn't stay defined, 
especially when using letter keys rather than numeric keys. 

I made the + key (on the numeric pad) a solid block; key # 96 , 
according to the program. Then pressed GRAPHIC + SHIFT + (+). 
I didn't get my solid block. So I went searching for it, all 
over the keyboard, and finally found it as GRAPHIC + SHIFT + 
(J)» 

So something is out of whack. The key I queried and thought I 
had redefined ended up redefining a key somewhere else! Why? 
It's driving me bananas! 
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ANNOUNCEMENT 


Exidy announced another new software package: The Word Pro¬ 
cessor PAC X , which transforms the SORCERER into a dedicated 
word processing system. The software will support an inex¬ 
pensive Selectric typewriter or the high-performance Diablo/ 
Qume proportional spaced output printers. 

Either an inexpensive cassette audio recorder or a mini-floppy 
disk may be used for data storage, and a 32K SORCERER will 
hold eight pages of text before saving to tape or disk is nec¬ 
essary. In the Edit mode, all standard functions of cursor 
control, pagination, and titling (and a lot of other features) 
are available to the user. The Command mode has the usual 
word processor functions, as well as tape merge with memory, 
line length set ( 15-120 characters), printer option, string 
search, and a display of unused space. File names can be up 
to eight characters in length. 

t in 

The Word Processing PAC X retails for $99, and Exidy says it’s 
available 30 days ARO from them at 390 Java Dr. Sunnyvale CA, 
94086. 

At the National Computer Conference (and the Summer Consumer 
Electronics Show), Exidy introduced a video/disk attachment 
for the SORCERER. 

The swivel based unit attaches directly to the SORCERER'S key¬ 
board enclosure and contains a 12" video display and a dual 
mini-floppy disk system with data storage of 63 OK words. 

Software included with the unit consists of the popular CP/M 
operating system, Z80 Assembler, Text Editor, Linking Loader, 
and Microsoft Disk Extended BASIC. 

The unit is priced at $2995 retail directly from Exidy. 


AUSTRALIAN USER GROUP SPEAKS UP 

Frank Schuffelen, of the Australian User Group, has offered to 
exchange reprint rights with us, and we jumped at the chance. 
As you can see from some of the material in this issue, he and 
Ian MacMillan and Devin Trussell have a good thing going. We 
welcome the Group to our "international" fold, and look for¬ 
ward to a long and lively association with them! - Terry 


ACKNOWLEDGEMENTS 

ARESCO is deeply indebted this month to Don Despres of Columbia 
who happened upon us quite by accident. Don entered programs 
into the SORCERER for us, so we could present you with running 
programs rather than error-prone, typed listings. Unfortun¬ 
ately, we didn’t have our cassette cables with us - and we had 
our printer on another system - so after he got it loaded and 
running, we had to leave it overnight...and the inevitable 
happened. For the first time in weeks, we had a thunderstorm, 
lost power, and (of course) lost the program. Don patiently 
re-entered the whole thing.... and you'll find it in this issue 













KEYBOARD ACCESS WHILE THE PROGRAM RUNS 
by Ian MacMillan 

(Courtesy of the Australian Sorcerer User's Group - Thanks!) 


A small machine language routine is poked into low memory 
at the start of the program. When called by a USR command, 
this calls the KEYBRD routine in the Monitor. 

The USR line calls the routine until a character is received, 
and then moves on. The USR line is called each time a new 
character is needed in your program. 

10 POKE 1,205 • POKE 2,24 s POKE 3,224 s POKE 4,50 
20 POKE 5,8 : POKE 6,0 : POKE 7,201 
30 POKE 260,1 : POKE 261,0 s L=USR(0) 
s IP PEEK(8)=0 THEN 30 
40 A.=PEEK(8) 

50 PRINT CHR$(A) 

60 GOTO 30 

The demonstration program above simply prints keyboard entry 
in a vertical line. To incorporate this in your own program, 
note that lines 10 and 20 only need to be run once, to estab¬ 
lish the machine language routine. Line 30 is the USR line, 
and the number at the end of the line must be a call to the 
line itself (if you use line 600, the IF...THEN must go to 600). 
Line 40 makes A equal to the ASCII value of the character en¬ 
tered; 50 converts this to a character, if that's what you need. 
The equivalent of line 60 is necessary to get successive 
entries. 

The system works very well, but suffers from the disadvantage 
that the program will stop running while the key is pressed 
down. 


(Editor’s note: Ian hopes to publish an article that shows 
how to directly access the keyboard port and overcome the 
problem of the program halt while the key is being pressed.) 


HOW NOT TO BE HEXED BY NEGATIVE ADDRESSES 

by Ian MacMillan 

(Courtesy of the Australian Sorcerer User’s Group - Thanks!) 

I you want to POKE or PEEK addresses in memory, you usually 
start by converting some address known in hex to decimal so 
you can use it from BASIC. 

If your decimal address is greater than 32768 , you must sub¬ 
tract 65536 to obtain a negative number (which will be the 
actual number you will POKE). 

Similarly, if you have a negative decimal address, and you 

want to convert it to hex, you must first add 65536 to obtain 

the decimal number that you can convert to the hex address. 17 







To: Leslie Zatz (re your letter in Vol 1, #2, page 3) 

Prom: Don Despres 

END OF LINE TYPING Yes, I agree. Typing program lines close 

to the 64 character length is difficult. 

I had that problem when I started, too. I'm anxious to see if 
someone responds to your request for a "hell" arrangement. 

I have a couple of ideas which might help until someone does 
come up with that better "bell" idea, though. Prompted by your 
letter, I came up with this as a temporary aid. I took a long 
piece of regular string; put it on the right side of my monitor, 
and taped it top and bottom to the screen near the right edge 
of that amounts to 64 characters. (I also considered going to 
a stationery or art store to get one of those rolls of drafting 
tape with a thin black or white line. You could tape that 
directly on the screen). While most monitors and TV screens 
have a curved picture tube, either method should work for you. 

I happen to have the Exidy P31 monitor (the "green screen"), 
which has a fat clear plastic cover. Tape or string on the 
screen certainly isn't elegant, but it will do the trick until 
another reader shows us something better. 

There's another routine you can use if you're writing a pro¬ 
gram which asks the user for input data. You can print a 
heading guide to aid the user in the correct placement of in¬ 
put fields (I'll give more details on this in the next issue 
of SOURCE). 

TV INTERFERENCE Ay, yes. I've got that problem, too. The 
retail stores don't have a satisfactory answer for that com¬ 
plaint yet. It's rather important, because the family complains 
about certain channels when I turn my Sorcerer on. 

(Editor's note: Has anyone tried the ATV Research Microverter 
(an RF modulator) with the Sorcerer yet? I know it does kill 
all interference for APPLES and VIPs, but since we have a monitor 
instead of a TV on the Sorcerer, we haven't tried it yet.) 

I've seen some magazine ads for devices to take care of the 
problem - but do they really work? Has anyone tried one? 

STRINGS OVER 66 Leslie, you didn't say how you were attempting 

CHARACTERS LONG to put in a string of over 66 characters, but 

let me tell you what I found. I was confused 
when I tried to get those long strings in BASIC as promised by 
the brochures and manuals. I got the same "lockup" problems 
(which destroy everything!). It has something to do with con¬ 
tinuing to type your string after the cursor has gone into over¬ 
flow for the next 64 character line on the screen without a 
carriage return. But CR tells Sorcerer you've finished input! 

While Exidy's manual says you can have a string as long as 255 
characters, it never explains how it's done. I happened upon 
the secret clue by reading other books & magazines. Actually, 
the information is in the "A SHORT TOUR OF BASIC" manual, pages 
64 and 65 , but you have to be more than a novice to pick it up. 



You get long strings by using the string concatenation function 
(+) inside a program run. Here's a quick example for illustration. 


10 PRINT CHR$(12) : REM—-CLEAR THE SCREEN 
20 : 


30 CLEAR 1000 : REM—-ALLOCATE A LARGE STRING SPACE IN MEMORY 
40 X$="ABCDEFGHIJKLMNOPQRSTUVWXYZ " Note the space at the end 
50 X$=X$+X$+"1 234567890 " of the string here! 

60 PRINT"—X$=64 CHARACTERS--" 

70 PRINT X$ : PRINT 
100 : 


110 Y$=LEFT$(X$,63) 

120 X$=X$+X$+X$+Y$ 

220 PRINT ”-NOW X$=255 CHARACTERS---" 

230 PRINT X$ 


Line 40 makes X$ 27 characters long, including the space at the 
end of the string. Line 50 makes X$ 27+27+10 (64) characters 
long, and then all 64 characters are printed on the screen in 
line 70 o 

Line 110 chops off the last character in X$, stores Y$ as only 
63 characters long. Then line 120 adds 64+o4+64+63 to make the 
maximum string length of 255 characters. Remember, this string 
includes the 8 spaces (one for each of the original "X$"s used) 
in one large string. 

Hope this helps. It is a long, tedious way to get at it, but 
until someone discovers a better way, I guess it will have to 
do. 


*** ATTENTION PEOPLE *** 

We have been really fortunate to have been contacted by a 
group of Sorcerer users in Australia (who sent in much of 
the material we've printed in this issue). We hope the 
efforts of these folks spur our American and European readers 
into writing material to share with the Australian group 
(we don't want to let these good people outshine us, do we?). 

Remember - we'll print the next issue as soon as we have enough 
material in the house to go to press. Any body got any ideas, 
comments, suggestions, discoveries, experiences to share? 

One of the things we'd like to see is reviews of products you've 
purchased for use with your Sorcerer. And comments regarding 
your experiences with dealers. Who are the "good guys" out 
there? Who are the "bad guys"? 

Also - Exidy promised to send us a copy of the new Word Pro¬ 
cessor Pac so we could review it for you - we haven't got it 
yet, but Paul Terrell says "as soon as possible", so we should 
have it soon! 
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COGNIVOX 


TM 



Voice O 

input & 
output 
for the 
Exidy 

SORCERER * 

$ 1493 ? 


° Recognizes up to 16 words ° Up to 98% recognition accuracy 

° 16 word voice response vocabulary ° Generates music and sound effects 

° Easy two pass training ° Excellent software support 

O 

COGNIVOX is a unique new accessory for your Sorcerer (16K) computer that opens up a whole 
new area of man-machine interaction. For the first time speech recognition and voice res¬ 
ponse are combined in a single low cost voice I/O terminal. 


Imagine being able to play a video game with your Sorcerer by calling out your moves! And 
just as easily you can ask your computer to read its memory to you out loud - a vocal me¬ 
mory dump! The possibilities are endless and fascinating. 

The COGNIVOX system includes both high quality hardware and an extensive software collec¬ 
tion. The hardware comes complete with microphone and audio amplifier/speaker in a beau¬ 
tiful color coordinated enclosure, ready to plug in the I/O port of your Sorcerer. 

The software provided consist of the basic driver programs plus 2 applications program 
paks (a total of 8 programs) plus two sophisticated voice operated video games (VOTHELLO 
and VOICETRAP) plus a Talking Calculator program that converts your Sorcerer into a four 
function floating point calculator that talks! 


All these, plus an excellent user's manual can be yours for the amazingly low price of 
$149 (please add $4 for shipping in US, Cal. add 6% tax). Although the cost of COGNIVOX 
is lower than the cost of either a speech recognizer or voice output alone, you will be 
very pleasantly surprised with the high quality of both our hardware and software. Our 
low prices come from technological breakthroughs in speech processing, not by cutting 
corners. 


Send in your order today and add an amazing new dimension to your Sorcerer computer. 



VOICETEK 


P.O. Box 388, Goleta, CA 93017 
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RENUMBER 


"by Devin Trussell 

The program here must he appended to the program which is being 
renumbered. It is executed by a "RUN 63 OOO" command, and is 
based on the "Line Renumbering On The PET" article which appeared 
in the March, 1979 issue of Personal Computing. It has been 
converted to operate on the SORCERER, and three enhancements 
have been added: 

IF...THEN and IF...GOTO statement sequences are 
correctly handled 

The beginning line number is user specified 

The increment between line numbers is user specified 

The second enhancement enables mutually exclusive line numbers 
to be given to two programs, in preparation for splicing them 
together. There are two main restrictions to the program: 

Only 256 line numbers can be handled; this can be 
altered by changing the dimension of OL in line 63 OIO 

The increment between line numbers must be less than 

256 

An outline of the program follows. (A modest familiarity with 
hexadecimal numbers on the part of the reader is assumed.) 

OL is an array containing the old line numbers. The Nth ele¬ 
ment in the array is the Nth line number in the original pro¬ 
gram . 

OM is the index for array OL. The final value of OM is the 
total number of lines corrected (see line 63510 ). 

NH and NL are high and low order bytes respectively of the 
new line numbers. 

AH and Al are. the high and low order bytes respectively of the 
hexadecimal address of the beginning of the next line in the 
program. They are Initialized as 1 and 213 (which is 01D5)• 

AD (see line 63020 ) is the decimal value of AH and AL. 

LL and LH are the second and third bytes respectively fol¬ 
lowing AD, and contain the low and high order bytes of the 
current line number. 

Lines 63 OOO- 63 O 19 are program initialization. In lines 63020 
to 63070 , the old line numbers of the program are changed to 
the desired new values. By means of a table lookup (see line 
638 OO), the internal references (ie, numbers following THEN 
(ASCII 162), GOTO (ASCII 137) and GOSUB (ASCII l4l) statements) 
are corrected in lines 635 OO- 6389 O. The program will give a 
"NO ROOM" message (see line 63830 ) if there is insufficient 


21 


space to insert the new internal line numbers. The solution 
then is to manuall correct the lines so affected. ..In most 
cases, this chore can be avoided if one or two spaces are in¬ 
serted ahead of the internal line numbers when the original 
program is entered. The program will give a "COULDN'T FIND" 
message if an internal line number reference in the original 
program cannot be matched with an original line number. 

Note: "II" is used to specify the line number increment. It 
should not be confused with the number eleven. "II" occurs 
in lines 63019> 63050, and 63820. 

63000 REM ** RENUMBER PROGRAM ** 

63001 : 

63002 REM ** BY DEVIN TRUSSELL 

63003 : 

63004 REM ** AUSTRALIAN SORCERER USER'S GROUP 

63005 : 

63OIO DIM 0L(255) : 0M=0 : AL=213 : AH=1 
63015 INPUT "NEW LINE NUMBERS BEGIN AT " ; ZZ 
63017 NH=INT(ZZ/256) : NL=ZZ-NH*256 

63019 INPUT "LINE NUMBER INCREMENT IS "5II 

63020 AD=256*AH+AL : LL= PEEK(AD+2) : LH= PEEK(AD+3) : 0L=256*LH+LL 
63O3O IF 0L=63000 GOTO 635OO 

63040 OL(OM)=OL : 0M=0M+1 

63050 POKE AD+2,NL : POKE AD+3,NH : NL=NL+II : IF NL) 255 THEN 
NL=NL-256 : NH=NH+1 

63060 IF OM > 255 GOTO 63500 

63070 AL=PEEK(AD) : AH=PEEK(AD+1) : GOTO 63O2O 
63O8O : . 

63500 REM * LINE NUMBERS ALTERED. 

63501 REM * INTERNAL REFERENCES NOW CHANGED. 

63502 : 

63510 PRINT OM;"LINE NUMBERS CORRECTED" : 0M=0M-1 : L=468 
63520 L=L+4 : LN=256*PEEK(L)+PEEK(L-1) : IF LN=63000 THEN PRINT 
"FINISHED" : END 

63530 L=L+1 : CH=PEEK(L) : IF CH=0 THEN 63520 

63540 IF (CH0137) AND (CH<> l4l) AND (CH<>l62) THEN 63550 

63565 IF CH=32 THEN 63560 

63570 IF (CH>47) AND (CH<58) THEN GOSUB 637OO : GOTO 63560 
6358O IF N$="" THEN 6353O 

63590 IF CH=44 THEN GOSUB 638OO : GOTO 63550 
636OO GOSUB 638OO : IF CH=0 THEN 63520 
636IO GOTO 6353O 
63620 : 

637 OO N=CH-48 j N$=N$+RIGHT$(STR$(N), 1) : RETURN 

63710 : 

638OO J=-l : N=VAL(N$) : FOR 1=0 TO OM : IF 0L(I)=N THEN J=1 : 
GOTO 63890 

638IO NEXT I s IF J=-l THEN PRINT "COULDN'T FIND LINE #";N;"IN 
TABLE" : GOTO 63890 

63820 NL=II*J+ZZ : NL$=STR$(NL) : NL$=RIGHT$(NL$,LEN(NL$)-1) 

6383O IF LEN(NL$)< (L-LO-1) THEN PRINT "NO ROOM TO REPLACE ";N 
;"WITH";NL : GOTO 6389O 
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63840 IP ^*NL$)<(L-LO-l) THEN NL$=NL$+" " : GOTO 63840 
63850 FOR I=L0+1 TO L-l : N$=MID$(NL$,I-LO,1) : N=VAL(N$)+48: 
POKE I,N 

6386O IF N$=" " THEN POKE 1,32 

6387O NEXT I 

63890 N$="" : RETURN 


(Editor's Notes Devin Trussell is a member of the Australian 
SORCERER User's Group. Thanks to Frank Schuffelen, USA SOR¬ 
CERER Users have access to all that "down under" expertise!) 


ANNOUNCEMENT 

Exidy has announced the Development PAC X , which allows Z-80 
assemblies, editing, and debugging. 

The Assembler is a two-pass utility and its I/O can be vec¬ 
tored to any device driver within the SORCERER. Source and 
object code can be spooled to accomodate programs of indef¬ 
inite length. Absolute assemblies and pseudo operators are 
also supplied. 

The line-oriented Editor allows forward cursor positioning, 
line deletion, line insertion, input and output of source 
code to any device driver, and spooling. The edit buffer is 
left intact for immediate use by the assembler. 

The debugger can display and/or modify any RAM location or 
Z80 register. It will execute a program with breakpoints and 
generally serve as a very useful tool to isolate program bugs. 

The Development PAC^ m will retail for $99* Exidy says it's 
available 3° days ARO (after receipt of order) from them, at 
their new address: 390 Java Drive, Sunnyvale, CA 9^086. 


COMPUTER MART OF WALTHAM LOSES BRUCE McGLOTHLIN TO EXIDY CORP. 

It's true! Bruce left the Computer Mart (and the Exidy Monitor 
Newsletter) to work in Exidy's marketing division. Paul Ter¬ 
rell explained, "We aren't certain yet exactly what Bruce will 
be-doing for us...but we can use someone with his experience 
and knowledge in almost any department in the company!" 

-Good luck Bruce! Sorry we weren't able to reach you for your 
comments. 
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